australian crabs:

library(ggplot2)
library(plotly)
library(tm)
library(wordcloud)
library(RColorBrewer)
library(crosstalk)
library(GGally)
library(htmltools)
crabs<- read.csv("australian-crabs.csv")
t <- SharedData$new(crabs)
scatterCrab <- plot_ly(t, x = ~CL, y = ~RW) %>%
  add_markers(color = I("black"))
barCrab <-plot_ly(t, x=~sex)%>%add_histogram()%>%layout(barmode="overlay")
bscols(widths=c(2, NA),filter_slider("FL", "Frontal Lobe", t, ~FL)
        ,subplot(scatterCrab,barCrab)%>%
  highlight(on="plotly_select", dynamic=T, persistent = T, opacityDim = I(1))%>%hide_legend())
Adding more colors to the selection color palette.
We recommend setting `persistent` to `FALSE` (the default) because persistent selection mode can now be used by holding the shift key (while triggering the `on` event).
Setting the `off` event (i.e., 'plotly_relayout') to match the `on` event (i.e., 'plotly_selected'). You can change this default via the `highlight()` function.
Setting the `off` event (i.e., 'plotly_relayout') to match the `on` event (i.e., 'plotly_selected'). You can change this default via the `highlight()` function.
ButtonsX=list()
for (i in 4:7){
  ButtonsX[[i-3]]= list(method = "restyle",
                        args = list( "x", list(crabs[[i]])),
                        label = colnames(crabs)[i])
}
ButtonsY=list()
for (i in 4:7){
  ButtonsY[[i-3]]= list(method = "restyle",
                        args = list( "y", list(crabs[[i]])),
                        label = colnames(crabs)[i])
}
p <- plot_ly(t, x = ~CL, y = ~CW, alpha = 0.8) %>%
  add_markers() %>%
  layout(xaxis=list(title=""), yaxis=list(title=""),
    title = "Select variable:",
    updatemenus = list(
      list(y=0.9, buttons = ButtonsX),
      list(y=0.6, buttons = ButtonsY)
    )  )
p    
LS0tDQp0aXRsZTogIkNyYWJzIg0KYXV0aG9yOiAiUm9zaG5pIFN1bmRhcmFtdXJ0aHkgKHJvc3N1ODA5KSAmIEJyaWFuIE1hc2luZGUgKGJyaW1hNzQ4KSINCmRhdGU6ICIwNCBPY3RvYmVyIDIwMTgiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgZGZfcHJpbnQ6IHBhZ2VkDQogIGh0bWxfbm90ZWJvb2s6DQogICAgdGhlbWU6IGpvdXJuYWwNCiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0DQpmb250c2l6ZTogMTFwdA0KI2JpYmxpb2dyYXBoeTogcmVmZXJlbmNlcy5iaWINCi0tLQ0KDQojIGF1c3RyYWxpYW4gY3JhYnM6DQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KHRtKQ0KbGlicmFyeSh3b3JkY2xvdWQpDQpsaWJyYXJ5KFJDb2xvckJyZXdlcikNCmxpYnJhcnkoY3Jvc3N0YWxrKQ0KbGlicmFyeShHR2FsbHkpDQpsaWJyYXJ5KGh0bWx0b29scykNCmBgYA0KDQoNCmBgYHtyfQ0KY3JhYnM8LSByZWFkLmNzdigiYXVzdHJhbGlhbi1jcmFicy5jc3YiKQ0KYGBgDQoNCmBgYHtyfQ0KdCA8LSBTaGFyZWREYXRhJG5ldyhjcmFicykNCg0Kc2NhdHRlckNyYWIgPC0gcGxvdF9seSh0LCB4ID0gfkNMLCB5ID0gflJXKSAlPiUNCiAgYWRkX21hcmtlcnMoY29sb3IgPSBJKCJibGFjayIpKQ0KYGBgDQoNCmBgYHtyfQ0KYmFyQ3JhYiA8LXBsb3RfbHkodCwgeD1+c2V4KSU+JWFkZF9oaXN0b2dyYW0oKSU+JWxheW91dChiYXJtb2RlPSJvdmVybGF5IikNCmBgYA0KDQpgYGB7cn0NCmJzY29scyh3aWR0aHM9YygyLCBOQSksZmlsdGVyX3NsaWRlcigiRkwiLCAiRnJvbnRhbCBMb2JlIiwgdCwgfkZMKQ0KICAgICAgICAsc3VicGxvdChzY2F0dGVyQ3JhYixiYXJDcmFiKSU+JQ0KICBoaWdobGlnaHQob249InBsb3RseV9zZWxlY3QiLCBkeW5hbWljPVQsIHBlcnNpc3RlbnQgPSBULCBvcGFjaXR5RGltID0gSSgxKSklPiVoaWRlX2xlZ2VuZCgpKQ0KYGBgDQoNCg0KYGBge3J9DQpCdXR0b25zWD1saXN0KCkNCmZvciAoaSBpbiA0Ojcpew0KICBCdXR0b25zWFtbaS0zXV09IGxpc3QobWV0aG9kID0gInJlc3R5bGUiLA0KICAgICAgICAgICAgICAgICAgICAgICAgYXJncyA9IGxpc3QoICJ4IiwgbGlzdChjcmFic1tbaV1dKSksDQogICAgICAgICAgICAgICAgICAgICAgICBsYWJlbCA9IGNvbG5hbWVzKGNyYWJzKVtpXSkNCn0NCg0KYGBgDQoNCmBgYHtyfQ0KQnV0dG9uc1k9bGlzdCgpDQpmb3IgKGkgaW4gNDo3KXsNCiAgQnV0dG9uc1lbW2ktM11dPSBsaXN0KG1ldGhvZCA9ICJyZXN0eWxlIiwNCiAgICAgICAgICAgICAgICAgICAgICAgIGFyZ3MgPSBsaXN0KCAieSIsIGxpc3QoY3JhYnNbW2ldXSkpLA0KICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwgPSBjb2xuYW1lcyhjcmFicylbaV0pDQp9DQpgYGANCg0KYGBge3J9DQpwIDwtIHBsb3RfbHkodCwgeCA9IH5DTCwgeSA9IH5DVywgYWxwaGEgPSAwLjgpICU+JQ0KICBhZGRfbWFya2VycygpICU+JQ0KICBsYXlvdXQoeGF4aXM9bGlzdCh0aXRsZT0iIiksIHlheGlzPWxpc3QodGl0bGU9IiIpLA0KICAgIHRpdGxlID0gIlNlbGVjdCB2YXJpYWJsZToiLA0KICAgIHVwZGF0ZW1lbnVzID0gbGlzdCgNCiAgICAgIGxpc3QoeT0wLjksIGJ1dHRvbnMgPSBCdXR0b25zWCksDQogICAgICBsaXN0KHk9MC42LCBidXR0b25zID0gQnV0dG9uc1kpDQogICAgKSAgKQ0KDQpwICAgIA0KYGBgDQoNCg==